home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb36200.lsp < prev    next >
Text File  |  1998-03-15  |  3KB  |  106 lines
  1. ;=============362.00 GEGENUMLENKUNG 40
  2.  
  3. (EAITDBL "0036200")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:36200V1 ( / P1 Wi)
  8.    (EAITDBL "0036200")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt nil nil nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "36200V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 25)) 20) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31.  
  32. (defun C:36200D1 ( / P1 Wi)
  33.    (EAITDBL "0036200")
  34.    (princ (strcat "\n\n" EAITbez1))
  35.      (EAITvari)
  36.      (EAITvars)
  37.      (setvar "ORTHOMODE" 0)
  38.      (EAITbpt nil nil nil)
  39.      (setq P1 (getpoint))
  40.      (if (= P1 nil)(setq P1 (EAITrpt)))
  41.      (setvar "OSMODE" 0)
  42.      (setvar "ORTHOMODE" 1)
  43.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  44.      (command EAITege (strcat EAITpfn "36200D1") P1 "" "" EAITofkei pause)
  45.  
  46.      (setq Wi (EAITbw))
  47.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 310)) 17) "" "" ""
  48.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  49.      )
  50.  
  51.      (EAITvarz2)
  52.      (princ)
  53.  
  54. );defun D1
  55.  
  56.  
  57. (defun C:36200D2 ( / P1 Wi)
  58.    (EAITDBL "0036200")
  59.    (princ (strcat "\n\n" EAITbez1))
  60.      (EAITvari)
  61.      (EAITvars)
  62.      (setvar "ORTHOMODE" 0)
  63.      (EAITbpt nil nil nil)
  64.      (setq P1 (getpoint))
  65.      (if (= P1 nil)(setq P1 (EAITrpt)))
  66.      (setvar "OSMODE" 0)
  67.      (setvar "ORTHOMODE" 1)
  68.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  69.      (command EAITege (strcat EAITpfn "36200D2") P1 "" "" EAITofkei pause)
  70.  
  71.      (setq Wi (EAITbw))
  72.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 310)) 17) "" "" ""
  73.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  74.      )
  75.  
  76.      (EAITvarz2)
  77.      (princ)
  78.  
  79. );defun D2
  80.  
  81.  
  82. (defun C:36200S1 ( / P1 Wi)
  83.    (EAITDBL "0036200")
  84.    (princ (strcat "\n\n" EAITbez1))
  85.      (EAITvari)
  86.      (EAITvars)
  87.      (setvar "ORTHOMODE" 0)
  88.      (EAITbpt nil nil nil)
  89.      (setq P1 (getpoint))
  90.      (if (= P1 nil)(setq P1 (EAITrpt)))
  91.      (setvar "OSMODE" 0)
  92.      (setvar "ORTHOMODE" 1)
  93.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  94.      (command EAITege (strcat EAITpfn "36200S1") P1 "" "" EAITofkei pause)
  95.  
  96.      (setq Wi (EAITbw))
  97.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 61)) 19) "" "" ""
  98.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  99.      )
  100.  
  101.      (EAITvarz2)
  102.      (princ)
  103.  
  104. );defun S1
  105. (princ)
  106.